home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / math / gle-3.000 / gle-3 / gle / util / contour / s_stop.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-02-07  |  235 b   |  20 lines
  1. #include <stdio.h>
  2. #include "f2c.h"
  3.  
  4. VOID s_stop(s, n)
  5. char *s;
  6. int32 n;
  7. {
  8. int i;
  9.  
  10. if(n > 0)
  11.     {
  12.     fprintf(stderr, "STOP ");
  13.     for(i = 0; i<n ; ++i)
  14.         putc(*s++, stderr);
  15.     fprintf(stderr, " statement executed\n");
  16.     }
  17. f_exit();
  18. exit(0);
  19. }
  20.